' T%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%W%
 
 ' Q%          N a m e :   Z e r o E r r _ T e s t _ V 0 1 . t x t                       D a t e :   2 3   A p r   2 0 2 2   Q%
 
 ' Q%      A u t h o r :   L e o n a r d o                                                                                   Q%
 
 ' Q%        S c o p e :   T e s t   b a s i c   f u n c t i o n a l i t y   o f   e R 0 7 0   M O D B U S                   Q%
 
 ' `%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%c%
 
 ' Q%H a r d w a r e :   e R o b 0 0 7 0                                                                                     Q%
 
 ' _% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %b%
 
 ' Q%  N o t e :   F i r s t   r u n                                                                   2 3 / 0 4 / 2 0 2 2   Q%
 
 ' Z%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%]%
 
 
 
 O p t i o n   S p e e d   9 
 
 ' L o a d   i m a g e s \ Z e r o E r r . j p g 
 
 ' B e e p   " 2 5 0 0   2 0 0 ,   1 5 0 0   2 0 0 " 
 
 
 
 C O M   O p e n   1 4   1 1 5 2 0 0 
 
 
 
 '   T%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%W%  %      %  %%%%  %%%%%
 
 '   Q%  V A R I A B L E   I N I T I A L I Z A T I O N S   &   A S S I G N E M E N T S         Q%  %      %  %%%%  %%%%%
 
 '   Z%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%]%    %%%    %    %  %    %%
 
 ' V a r i a b l e   N u m e r i c   N u m C y c l e 
 
 ' V a r i a b l e   N u m e r i c   S t a r t T i m e 
 
 ' V a r i a b l e   S t r i n g     R e s u l t 
 
 ' V a r i a b l e   N u m e r i c   S l o t _ E m e r g e n c y 
 
 ' 
 
 ' V a r i a b l e   N u m e r i c   S l o t _ C l o c h e X 	 	 	 =       1 
 
 ' V a r i a b l e   N u m e r i c   S l o t _ C l o c h e Y 	 	 	 =       2 
 
 ' ' V a r i a b l e   N u m e r i c   S l o t _ S w i t c h A B 	 	 	   =       3 
 
 ' V a r i a b l e   N u m e r i c   S l o t _ E n c o d e r D a t a 	 	 =       4 
 
 ' ' V a r i a b l e   N u m e r i c   S l o t _ B u z z e d 	 	 	   =       5 
 
 ' 
 
 ' 
 
 
 
 '   T%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%W%  %%%%  %    %  %%%%%
 
 '   Q%  B U T T O N S                                                                         Q%  %%%%  %    %      %
 
 '   Z%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%]%  %%%%  %%%%      %
 
 B u t t o n   1   T e x t   E N A B L E 
 
 B u t t o n   E N A B L E   T e x t   " E N A B L E " 
 
 B u t t o n   E N A B L E   C o l o r   A q u a m a r i n e 
 
 
 
 B u t t o n   2   T e x t   D I S A B L E 
 
 B u t t o n   D I S A B L E   T e x t   " D I S A B L E " 
 
 B u t t o n   D I S A B L E   C o l o r   A q u a m a r i n e 
 
 
 
 B u t t o n   3   T e x t   S t a r t R u n n i n g 
 
 B u t t o n   S t a r t R u n n i n g   T e x t   " S t a r t   R u n n i n g " 
 
 B u t t o n   S t a r t R u n n i n g   C o l o r   L i g h t G r e e n 
 
 
 
 B u t t o n   4   T e x t   S t o p R u n n i n g 
 
 B u t t o n   S t o p R u n n i n g   T e x t   " S t o p   R u n n i n g " 
 
 B u t t o n   S t o p R u n n i n g   C o l o r   D a r k S a l m o n 
 
 
 
 B u t t o n   5   T e x t   S t a r t P o s 
 
 B u t t o n   S t a r t P o s   T e x t   " P o s = 1 3 1 0 7 2 " 
 
 B u t t o n   S t a r t P o s   C o l o r   O l d L a c e 
 
 
 
 B u t t o n   6   T e x t   S t o p P o s 
 
 B u t t o n   S t o p P o s   T e x t   " P o s = 2 6 2 1 4 4 " 
 
 B u t t o n   S t o p P o s   C o l o r   O l d L a c e 
 
 
 
 B u t t o n   7   T e x t   P o s i t i o n 
 
 B u t t o n   P o s i t i o n   T e x t   " P O S I T I O N " 
 
 B u t t o n   P o s i t i o n   C o l o r   B l u e 
 
 
 
 
 
 
 
 ' 0 1   0 3   0 0   6 6   0 0   0 2   2 4   1 4               ' a s k   p o s i t i o n 
 
 
 
 ' 0 1   0 3   0 4   0 0   0 3   F F   F F   0 B   8 3         ' c u r r e n t   p o s i t i o n 
 
 
 
 
 
 '   T%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%W%    %%%%  %%%%%  %%%%%  %%%%%  %%%%%
 
 '   Q%    S T A R T   F R O M   H E R E                                                       Q%    %%%%      %      %%%%%  %%%%%      %
 
 '   Z%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%]%    %%%%      %      %      %  %    %%      %
 
 
 
 C o n t r o l s   O p e n T e x t B o x 
 
 C o n t r o l s   C l e a r T e x t B o x 
 
 
 
 s 1   =   C O M _ S t a t u s 
 
 P r i n t   s 1   +   C R L F 
 
 L o a d   H i d e 
 
 L o o p 
 
 S t o p 
 
 
 
 
 
 
 
 '   T%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%W%  %      %%%%  %%%%  %%%%
 
 '   Q%  L O O P                                                                               Q%  %      %    %  %    %  %%%%
 
 '   Z%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%]%  %%%  %%%%  %%%%  %
 
 L a b e l   L o o p 
 
 	 P o s i t i o n 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 ' C h e c k M o t o r T e m p e r a t u r e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 '   0 . 0 2   s e c .   o r   m o r e   t o   a l l o w   t i m e   f o r   k e y s   a n d   o t h e r   t a s k s 
 
 	 W a i t   S e c o n d s   0 . 0 2 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 G o t o   L o o p 
 
 
 
 '   T%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%W%  %%%%  %    %  %%%
 
 '   Q%    S   U   B   R   O   U   T   I   N   E       A   R   E   A                           Q%  %%%%  %    %  %%%%
 
 '   Z%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%]%  %%%%  %%%%  %%%%
 
 
 
 
 
 L a b e l   E N A B L E 
 
 	 s 1   =   " 0 1   0 6   0 0   F 0   0 0   0 1   4 8   3 9 " 
 
 	 C O M   W r i t e S t r i n g H E X   s 1 
 
 	 P r i n t   " S e n d   =   "   +   s 1   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   D I S A B L E 
 
 	 s 1   =   " 0 1   0 6   0 0   F 0   0 0   0 0   8 9   F 9 " 
 
 	 C O M   W r i t e S t r i n g H E X   s 1 
 
 	 P r i n t   " S e n d   =   "   +   s 1   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   S t a r t R u n n i n g 
 
 	 s 1   =   " 0 1   0 6   0 0   F 1   0 0   0 1   1 9   F 9   " 
 
 	 C O M   W r i t e S t r i n g H E X   s 1 
 
 	 P r i n t   " S e n d   =   "   +   s 1   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   S t o p R u n n i n g 
 
 	 s 1   =   " 0 1   0 6   0 0   F 2   0 0   0 0   2 8   3 9 " 
 
 	 C O M   W r i t e S t r i n g H E X   s 1 
 
 	 P r i n t   " S e n d   =   "   +   s 1   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   S t a r t P o s 
 
 	 s 1   =   " 0 1   1 0   0 0   4 3   0 0   0 2   0 4   0 0   0 2   0 0   0 0   1 6   4 A "       ' 1 3 1 0 7 2 
 
 	 C O M   W r i t e S t r i n g H E X   s 1 
 
 	 P r i n t   " S e n d   =   "   +   s 1   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   S t o p P o s 
 
 	 s 1   =   " 0 1   1 0   0 0   4 3   0 0   0 2   0 4   0 0   0 4   0 0   0 0   F 6   4 B "       ' 2 6 2 1 4 4 
 
 	 C O M   W r i t e S t r i n g H E X   s 1 
 
 	 P r i n t   " S e n d   =   "   +   s 1   +   C R L F 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   P o s i t i o n 
 
 	 s 1   =   " 0 1   0 3   0 0   6 6   0 0   0 2   2 4   1 4 " 
 
 	 C O M   W r i t e S t r i n g H E X   s 1 
 
 	 P r i n t   " S e n d   =   "   +   s 1   +   C R L F 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 s 2   =   C O M _ R e c e i v e N C h a r s ( 9 ) 
 
         ' s 2   =   C O M _ R e c e i v e U n t i l ( C R L F ) 
 
         ' s 2   =   C O M _ R e c e i v e d 
 
 	 ' W a i t   S e c o n d s   0 . 5 
 
 	 s 3   =   " " 
 
 	 I f   s 2   < >   " " 
 
 	 	 F o r   v 1   =   1   T o   L e n ( s 2 ) 
 
 	 	 	 s 3   =   s 3   +   H e x ( A s c ( M i d ( s 2 ,   v 1 ,   1 ) ) )   +   "   " 
 
 	 	 N e x t 
 
 	 E n d I f 
 
 	 C o n t r o l s   C l e a r T e x t B o x 
 
 	 C o n v e r t T o P o s i t i o n 
 
 	 B u t t o n   P o s i t i o n   T e x t   " P o s = "   +   s 3   ' C u r r e n t P o s 
 
 	 P r i n t   " R e c e i v e d   =   "   +   C u r r e n t P o s   +   C R L F 
 
 R e t u r n 
 
 
 
 V a r i a b l e   N u m e r i c   C u r r e n t P o s 
 
 L a b e l   C o n v e r t T o P o s i t i o n 
 
 	 
 
 	 s 2   =   C h r ( 1 )   +   C h r ( 3 ) +   C h r ( 4 ) +   C h r ( 0 )   +   C h r ( 3 )   +   C h r ( 2 5 5 )   +   C h r ( 2 5 5 )   +   C h r ( 2 2 2 )   +   C h r ( 2 2 2 ) 
 
 	 
 
 	 ' C u r r e n t P o s   =   V a l ( M i d ( s 2 ,   7 ,   1 ) ) 
 
 	 ' C u r r e n t P o s   =   C u r r e n t P o s   +   V a l ( M i d ( s 2 ,   6 ,   1 ) )   *   2 5 6 
 
 	 ' C u r r e n t P o s   =   C u r r e n t P o s   +   V a l ( M i d ( s 2 ,   5 ,   1 ) )   *   6 5 5 3 6 
 
 	 ' C u r r e n t P o s   =   C u r r e n t P o s   +   V a l ( M i d ( s 2 ,   4 ,   1 ) )   *   6 5 5 3 6   *   2 5 6 
 
 	 
 
 	 C u r r e n t P o s   =   V a l ( M i d ( s 2 ,   7 ,   1 ) ) 
 
 	 C u r r e n t P o s   =   C u r r e n t P o s   +   V a l ( M i d ( s 2 ,   6 ,   1 ) )   *   2 5 6 
 
 	 C u r r e n t P o s   =   C u r r e n t P o s   +   V a l ( M i d ( s 2 ,   5 ,   1 ) )   *   6 5 5 3 6 
 
 	 C u r r e n t P o s   =   C u r r e n t P o s   +   V a l ( M i d ( s 2 ,   4 ,   1 ) )   *   6 5 5 3 6   *   2 5 6 
 
 R e t u r n 
 
 
 
 
 
 
 
 
 
 
 
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 ' 0 1   0 3   0 0   6 6   0 0   0 2   2 4   1 4               ' a s k   p o s i t i o n 
 
 ' 0 1   0 3   0 4   0 0   0 3   F F   F F   0 B   8 3         ' c u r r e n t   p o s i t i o n 
 
 
 
 
 
 ' W A T C H   C O M _ S t a t u s 
 
 ' W A T C H   l e n ( s 2 ) 
 
 ' W A T C H   v a l ( 
 
 